; PASTIMES.DAT Create or edit the pastimes sections
[AddToPastimes] ; collect data for pastimes
GOSUB InitPastimeVars
GOSUB GetNewPastimeData
GOSUB GetNewActivityData
SETTEMP sectionCompleted = 1
IF pastimeVarRoot = ""
BUSY 1
ARGUMENT "Please hold on for a moment while the wizard build the Family Pastime and Activity Pages"
GOSUB BuildPastimePages
; rebuild the homepage if necessary
IF PstmSectnExist = NN || dummyPastimes = YY
GOSUB BuildHomePage
ENDIF
IF dummyPastimes = YY
SET dummyPastimes = ""
SET dummy_sections = subtract( dummy_sections 1)
ENDIF
BUILDLINKS
SET hasPastimes = 1
BUSY 0
ENDIF
;xxxxxxxxxxxxxxxxxx REPLACE PASTIME or ACTIVITY xxxxxxxxxxxxxxxxxxxxxxx
[ReplacePastimeOrActivity]
SETTEMP inpL1 = ""
IF pastimeVarRoot = ""
SETTEMP chooseVar = "CHANGE FAMILY INTERESTS\nThe family interests section of your Web site contains both"
ELSE
SETTEMP chooseVar = "CHANGE PERSONAL INTERESTS\n",name," has both personal"
ENDIF
SETTEMP chooseVar = chooseVar," pastimes and activities. You can replace any of these with new ones, or just make changes to what you wrote before.\n\nChoose one to change and you will be shown a list of them to choose from.\n\nSelect one you would like to make changes to."
BACKSTOP
PAGE
WIZPIC wizpics\pastmwiz.gif
TYPE RADIOBUTTONS
DESCRIPTION_RE chooseVar
NAME inpL1
ARGUMENT "Replace a pas&time"@1
ARGUMENT "Replace an &activity"@2
ARGUMENT "&Done with changes"@3
IF inpL1 = 1
GOSUB ReplacePastimeData
ENDIF
IF inpL1 = 2
GOSUB ReplaceActivityData
ENDIF
IF inpL1 <> 3
GOTO ReplacePastimeOrActivity ;loop back
ENDIF
;xxxxxxxxxxxxxxxxxxxxxxx REPLACE PASTIME DATA xxxxxxxxxxxxxxxxxxxx
SETTEMP txt1nA = "REPLACE A PASTIME. You are now changing the "
SETTEMP txt1nB = " pastime item. If you choose the same type as before, you can make changes to what you wrote before. If you choose a new type, you can enter new information to replace the old pastime completely."
SETTEMP txt1n = "\n\nSelect the category for this "
SETTEMP txt2n = " pastime. The type you choose is used to determine how this item's page on the Web site is styled. It also governs what questions you will be asked to complete this item."
BACKSTOP LastPast
PAGE
TYPE RADIOBUTTONS
NAME inpL2
WIZPIC wizpics\pastmwiz.gif
DESCRIPTION_RE "PICK ONE TO REPLACE\nYou can replace one or more of the '",pers_fam_mode," pastimes' that you have previously entered. You need not keep to the same types of pastimes you have already, but rather you can enter them in any combination.",ptSeltext,"replace."
ARGUMENT "&1. ",eval( pasLinkTextVar1 )@1
ARGUMENT "&2. ",eval( pasLinkTextVar2 )@2
ARGUMENT "&3. ",eval( pasLinkTextVar3 )@3
ARGUMENT "&4. ",eval( pasLinkTextVar4 )@4
ARGUMENT "&Done changing the pastimes."@5
NOPREVIOUS
IF inpL2 <> 5
; get data for pastime to replace
SETTEMP nPastime = inpL2
BACKSTOP
SETTEMP nNumber = nPastime
GOSUB Ordinal
SETTEMP ptPrmptext = txt1nA,ordinal,txt1nB,txt1n,pers_fam_mode,txt2n,ptSeltext,"use for this pastime item."
GOSUB InputAPastime
SETBACKSTOP LastPast
IF pastimeVarRoot = ""
SETTEMP PastimesBuild = YY
ELSE
SETTEMP doBuild = YY
ENDIF
SETTEMP inpL2 = 5
SETTEMP beenOnce = 1
GOTO ReplacePastimeData ;do another
ENDIF
SETTEMP beenOnce = 0
;xxxxxxxxxxxxxxxxxxxxx GET NEW PASTIMES xxxxxxxxxxxxxxxxxx
[GetNewPastimeData]
IF skipExplanations = NN
SETTEMP wlc_pt = "WELCOME TO THE "
SETTEMP wlc_pt1 = "\n\nOne of the sections on your "
IF pers_fam_mode = "personal"
SETTEMP ptPart1 = "PERSONAL INTERESTS for ",name
SETTEMP cap1 = "you like to spend your time"
ELSE
SETTEMP ptPart1 = "FAMILY PASTIMES and ACTIVITIES SECTION"
SETTEMP cap1 = "the family members like to spend their time"
ENDIF
SETTEMP ptStrtext = wlc_pt,ptPart1,wlc_pt1,pers_fam_mod," Web site is for '",pers_fam_mode," interests'. Here you can share information about how "
SETTEMP ptStrtext = ptStrtext,cap1,", describing hobbies, clubs, and other involvements. You can also describe your favorite pastimes, such as movies, music, and sports you enjoy watching."
SETTEMP ptStrtext = ptStrtext,"\n\nThis section will contain four items in each of two sections: pastimes and activities.\n\nThe four items in each section are chosen from a category, such as 'Sports', 'Hobbies', and so on. The category helps the wizard provide the proper page decorations and ask the right questions.\n\nYou can change these later by modifying what you wrote or by simply replacing an entire item."
BACKSTOP
PAGE
TYPE DESCRIPTION
WIZPIC wizpics\pastmwiz.gif
DESCRIPTION_RE ptStrtext
ENDIF
SETTEMP base = pastimeVarRoot,"pasType"
SET eval( base,1 ) = "Games"
SET eval( base,2 ) = "Spectator Sports"
SET eval( base,3 ) = "Movie"
SET eval( base,4 ) = "Music"
SETTEMP txt1nA = "ADD A PASTIME. You are now entering the "
SETTEMP txt1nB = " of four ",pers_fam_mode," pastime items."
SETTEMP txt1n = "\n\nSelect the category for this "
SETTEMP txt2n = " pastime. The type you choose is used to determine how this item's page on the Web site is styled. It also governs what questions you will be asked to complete this item."
;xxxxxxxxxxxxxxxxxxxx INPUT ONE PASTIME xxxxxxxxxxxxxxxxxxxxxxx
[InputAPastime]
GOSUB LoadPastimeWorkVars
SETTEMP oldPasType = pasType
; get the type
PAGE
NAME pasType
TYPE RADIOBUTTONSWITHTEXT
DESCRIPTION_RE ptPrmptext
WIZPIC wizpics\pastmwiz.gif
ARGUMENT "&Games"@Games@"\nIs there a particular card game, board game, ball game, fun game of any type, that you enjoy playing.\n\nHere's a place to tell all about it!"
ARGUMENT "&Spectator sports"@Spectator Sports@"\nDo you enjoy watching football, basketball, baseball, or golf?\n\nChoose this category to tell about any sport (pro or otherwise) that you enjoy watching."
ARGUMENT "&Movie"@Movie@"\nIs there a particular type of cinema that you enjoy?\n\nIf spy thrillers are your thing, you can let the rest of the family know right here!\n\nOr if you enjoy a good comedy, tell about it in this section."
ARGUMENT "M&usic"@Music@"\nDo you have a CD or musical artist that you really like listening to in your spare time?\n\nTell the rest of the family about it here."
IF oldPasType <> pasType
SET pasName = ""
SET pasSpec = ""
SET pasMembers = ""
SET pasTextA = ""
SET pasTextB = ""
SET pasTextC = ""
ENDIF
IF pers_fam_mode = "personal" && pasMembers = ""
SETTEMP pasMembers = name
ENDIF
BACKSTOP
IF pasType = "Games"
GOSUB GetGamesPastime
ENDIF
IF pasType = "Spectator Sports"
GOSUB GetSpectatorSportsPastime
ENDIF
IF pasType = "Movie"
GOSUB GetMoviePastime
ENDIF
IF pasType = "Music"
GOSUB GetMusicPastime
ENDIF
SET eval( pasLinkTextVar ) = pasLinkText
SET eval( pasTypeVar ) = pasType
SET eval( pasNameVar ) = pasName
SET eval( pasSpecVar ) = pasSpec
SET eval( pasMembersVar ) = pasMembers
SET eval( pasTextAVar ) = pasTextA
SET eval( pasTextBVar ) = pasTextB
SET eval( pasTextCVar ) = pasTextC
[GetGamesPastime]
PAGE
TYPE MULTIPLEEDITS
WIZPIC wizpics\pstimgam.gif
DESCRIPTION_RE "Enter the name of a game that is one of your favorite ",pers_fam_mode," pastimes. Fill in what type of game this is (board game, card game, knowledge game, ball game, etc.). Also fill in the names of the family members who play this game."
ARGUMENT Name of the &game:@pasName
ARGUMENT Typ&e of game:@pasSpec
ARGUMENT &Family members who play:@pasMembers
IF pasName = "" || pasName = pt_game
SET pasName = pt_game
SET pasLinkText = pt_game
ELSE
SET pasLinkText = pt_game,": ",pasName
ENDIF
BACKSTOP
PAGE
TYPE MULTIAND2EDITS
WIZPIC wizpics\pstimgam.gif
DESCRIPTION_RE "Fill in the answers below to share more about how you play and enjoy this game. When you play this game, who is the usual winner (or winning team)? How often do you get to play this game?\n\nAlso provide a little description of the game the way you play it. Share your strategies, the way you pick teams, and the ways you have fun playing."
ARGUMENT Usual &winners:@pasTextA
ARGUMENT &How often we play:@pasTextB
ARGUMENT How we play the &game:@pasTextC
[GetSpectatorSportsPastime]
PAGE
TYPE MULTIPLEEDITS
WIZPIC wizpics\pstimspr.gif
DESCRIPTION_RE "Fill in the name of one of your favorite spectator sports. Also provide the name of your favorite team (or teams) and the names of your favorite players in the spaces below."
ARGUMENT Name of the &sport:@pasName
ARGUMENT &Favorite team:@pasSpec
ARGUMENT Fa&vorite players:@pasTextA
IF pasName = "" || pasName = pt_sport
SET pasName = pt_sport
SET pasLinkText = pt_sport
ELSE
SET pasLinkText = pt_sport,": ",pasName
ENDIF
BACKSTOP
PAGE
TYPE MULTIAND2EDITS
WIZPIC wizpics\pstimspr.gif
DESCRIPTION_RE "Who are the family members who like to watch this sport? How often do you watch this sport, and what does your family like best about the sport? Fill in the answers in the space provided below."
ARGUMENT &Family members who watch:@pasMembers
ARGUMENT &How often we watch:@pasTextB
ARGUMENT &What you like about the sport:@pasTextC
[GetMoviePastime]
PAGE
TYPE MULTIPLEEDITS
WIZPIC wizpics\pstimmov.gif
DESCRIPTION_RE "Fill in the title of a movie that is one of your ",pers_fam_mode," favorites. It can be a recent film or a `classic'. If the name is more than about 5 or 6 words, enter a short version. What type of movie is it? (Action, adventure, comedy, love story, war movie, drama, mystery, etc.) Who are the key cast members in the movie? Fill in the answers in the space provided."
ARGUMENT Name of the &movie:@pasName
ARGUMENT &Type of film:@pasSpec
ARGUMENT Fa&vorite stars:@pasTextA
IF pasName = "" || pasName = pt_movie
SET pasName = pt_movie
SET pasLinkText = pt_movie
ELSE
SET pasLinkText = pt_movie,": ",pasName
ENDIF
BACKSTOP
PAGE
TYPE MULTIAND2EDITS
WIZPIC wizpics\pstimmov.gif
DESCRIPTION_RE "Who are the family members who saw this movie? How would you rate this movie? Include information about content and your overall enjoyment. If it's not suitable or appropriate for certain ages, mention that too. Then tell a little about the story. Be sure not to spoil the ending for someone!"
ARGUMENT &Family members who saw it:@pasMembers
ARGUMENT &How you rate this movie:@pasTextB
ARGUMENT &Description:@pasTextC
[GetMusicPastime]
PAGE
TYPE MULTIPLEEDITS
WIZPIC wizpics\pstimmus.gif
DESCRIPTION_RE "Fill in the name or title of a musical piece or collection (such as an album or CD) that you enjoy listening to.\n\nAlso fill in the name of the artist or group who performs this music and fill in your favorite selections from this album/CD."
ARGUMENT &Title of musical selection:@pasName
ARGUMENT &Artist:@pasSpec
ARGUMENT Fa&vorite selection:@pasTextA
IF pasName = "" || pasName = pt_music
SET pasName = pt_music
SET pasLinkText = pt_music
ELSE
SET pasLinkText = pt_music,": ",pasName
ENDIF
BACKSTOP
PAGE
TYPE MULTIAND2EDITS
WIZPIC wizpics\pstimmus.gif
DESCRIPTION_RE "Who in the family enjoys listening to this music? What is the category of this music? (For example, rock, rap, country, pop, classical, etc.)\n\nAlso provide a few details about this music collection and some of the reasons why you enjoy listening to it."
ARGUMENT &Family members who like this music:@pasMembers
ARGUMENT &Category of music:@pasTextB
ARGUMENT &Description of the music:@pasTextC
[BuildPastimePages]
SETPARENTTOPIC pageContents
SETTEMP pageNameVar = "pagePastimes"
SETTEMP caption = "Pastimes of the ",familyLastName," Family"
